home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1987 January & February / rerun-1987-01-02.d64 / monthly labels (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  53 lines
  1. 10 print"[147]":poke53281,0:poke53280,0
  2. 20 printtab(12)"monthly labels"
  3. 30 print:fori=1to2000:next
  4. 40 print"[147]"
  5. 50 printtab(6)"which printer are you using?"
  6. 60 print"1. mps 801,802,803,1000
  7. 70 [153]"2. star micronics"
  8. 80 [153]"3. okidata"
  9. 90 [153]"4. blue chip"
  10. 100 [153]"5. other"
  11. 110 [161]p$:p[178][197](p$):[139]p[179]1 [176]p [177]5 [167]110
  12. 120 [145]p [141]450,470,490,470,510
  13. 130 [133]"loadname";a$
  14. 140 [133]"loadstreet address";b$
  15. 150 [133]"loadcity";c$
  16. 160 [133]"loadstate & zip";d$
  17. 170 [133]"loadhow many spaces between labels";l
  18. 180 [133]"loadhow many copies";c
  19. 190 [153]"load"
  20. 200 [153][163]11)"get printer ready"
  21. 210 [141]410
  22. 220 cm$[178]","
  23. 230 [151]198,0:[146]198,1
  24. 240 [143] ***open printer and start printing***
  25. 250 [153]"load":[153][163]17)"printing"
  26. 260 [159]4,4:[157]4
  27. 270 [129]a[178]1[164]c
  28. 280 [153]ns$nt$:[153]"  "a$:[153]"  "b$:[153]"  "c$cm$;:[153]" "d$
  29. 290 [153]rs$rt$ru$:[129]i[178]1[164]l:[153]:[130]:[130]
  30. 300 [152]4:[160]4:[153]"load":[153][163]16)"finished"
  31. 310 [141]410
  32. 320 [151]198,0
  33. 330 [161] k$
  34. 340 [143] ***sound the bell after printing***
  35. 350 s[178]54272:[151]s[170]24,15
  36. 360 [151]s[170]1,110:[151]s[170]5,9
  37. 370 [151]s[170]6,9:[151]s[170]4,17
  38. 380 [151]s[170]4,16:[129]i[178]1[164]500:[130]
  39. 390 [139]k$[178]""[167]330
  40. 400 [137]130
  41. 410 [129]k[178]1[164]19:[153]:[130]
  42. 420 [153][163]14)"hit any key"
  43. 430 [151]198,0:[151]198,1:[142]
  44. 440 [143] ***set line spacing routine***
  45. 450 ns$[178][199](15):nt$[178]""
  46. 460 rs$[178][199](8):rt$[178]"":ru$[178]"":[142]
  47. 470 ns$[178][199](27):nt$[178]"2"
  48. 480 rs$[178][199](27):rt$[178]"a":ru$[178][199](2):[142]
  49. 490 ns$[178][199](27):nt$[178]"6"
  50. 500 rs$[178][199](27):rt$[178]"%":ru$[178][199](4):[142]
  51. 510 ns$[178][199](13):nt$[178]""
  52. 520 rs$[178]"":rt$[178]"":ru$[178]"":[142]
  53.